﻿Imports extranet.BE

Public Class BEMensagem
    Public Const ID_MENSAGEM As String = "id_mensagem"
    Public Const MSG_REMETENTE As String = "remetente"
    Public Const MSG_DATA As String = "data"
    Public Const MSG_STATUS As String = "status"
    Public Const MSG As String = "mensagem"
    Public Const MSG_APROVADOR As String = "aprovador"
    Public Const MSG_REPROVADOR As String = "reprovador"
    Public Const MSG_JUSTIFICATIVA_REPROVACAO As String = "justificativa_reprovacao"

    Private _id_mensagem As Integer
    Private _remetente As String
    Private _data As Date
    Private _status As String
    Private _mensagem As String
    Private _aprovador As String
    Private _reprovador As String
    Private _justificativa_reprovacao As String


    Public Property Id() As Integer
        Get
            Return _id_mensagem
        End Get
        Set(ByVal value As Integer)
            _id_mensagem = value
        End Set
    End Property

    Public Property Remetente() As String
        Get
            Return _remetente
        End Get
        Set(ByVal value As String)
            _remetente = value
        End Set
    End Property

    Public Property Data() As Date
        Get
            Return _data
        End Get
        Set(ByVal value As Date)
            _data = value
        End Set
    End Property

    Public Property Status() As String
        Get
            Return _status
        End Get
        Set(ByVal value As String)
            _status = value
        End Set
    End Property

    Public Property Mensagem() As String
        Get
            Return _mensagem
        End Get
        Set(ByVal value As String)
            _mensagem = value
        End Set
    End Property

    Public Property Aprovador() As String
        Get
            Return _aprovador
        End Get
        Set(ByVal value As String)
            _aprovador = value
        End Set
    End Property

    Public Property Reprovador() As String
        Get
            Return _reprovador
        End Get
        Set(ByVal value As String)
            _reprovador = value
        End Set
    End Property

    Public Property JustificativaReprovacao() As String
        Get
            Return _justificativa_reprovacao
        End Get
        Set(ByVal value As String)
            _justificativa_reprovacao = value
        End Set
    End Property


    Private usrRemetente As BEUsuario
    Public Property UsuarioRemetente() As BEUsuario
        Get
            Return usrRemetente
        End Get
        Set(ByVal value As BEUsuario)
            usrRemetente = value
        End Set
    End Property


    Private objBERanking As BERanking
    Public Property Ranking() As BERanking
        Get
            Return objBERanking
        End Get
        Set(ByVal value As BERanking)
            objBERanking = value
        End Set
    End Property


    Private strRankeado As String
    Public Property Rankeado() As String
        Get
            Return strRankeado
        End Get
        Set(ByVal value As String)
            strRankeado = value
        End Set
    End Property


End Class
